home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE03 / PERSEUS / PSSLIDER.ZIP / TRANS.INT < prev   
Text File  |  1995-07-10  |  1KB  |  45 lines
  1. unit Trans;
  2.  
  3. {This is the source of the TTransparent component the parent of the Slider and the Wheel
  4.  of the Perseus VCP. If you purchase at least 2 copies of one of these components
  5.  you'll receive it with your registered  version!
  6.  
  7.  Copyright ⌐ 1995: Sebastian Modersohn
  8.                    Softwaredevelopment
  9.                    Heinestrasse 20
  10.                    D 15370 Petershagen
  11.                    Phone: ++49 33439 7462
  12.                    CompuServe: 100340,1474
  13.                    Internet: 100340.1474@compuserve.com
  14.  
  15.  Written by: Sebastian Modersohn
  16.  
  17.  The source is nearly undocumented, so if you have questions to details, just
  18.  contact us (via CompuServe) and we'll help you (if we can <g>).}
  19.  
  20. interface
  21.  
  22. uses WinTypes, Messages, Classes, Controls;
  23.  
  24. type
  25.   TTransparent = class(TCustomControl)
  26.   private
  27.     FTransparent: Boolean;
  28.     EOnChange: TNotifyEvent;
  29.   protected
  30.     procedure Change; dynamic;
  31.  
  32.     procedure SetTransparent(Value: Boolean);
  33.  
  34.     procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
  35.   public
  36.     constructor Create(AOwner: TComponent); override;
  37.     procedure CreateParams(var Params: TCreateParams); override;
  38.     procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
  39.  
  40.     property OnChange: TNotifyEvent read EOnChange write EOnChange;
  41.   published
  42.     property Transparent: Boolean read FTransparent write SetTransparent default True;
  43.   end;
  44.  
  45. implementation